home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / MorphOS / Epic4_mos / share / epic / script / edit < prev    next >
Encoding:
Text File  |  2002-10-28  |  626 b   |  25 lines
  1. # The original (hack-around) was written 4/20/93
  2. # by Mycroft!mycroft@gnu.ai.mit.edu (Charles Hannum)
  3. # who deserves bonus points for coming up with a clever way
  4. # to get around stupid limitations in the client
  5. #
  6. # This version was written 12/3/95
  7. # by hop!jnelson@acronet.net (Jeremy Nelson)
  8. # who hacked the $aliasctl() function into EPIC3pre5-fixit1
  9. # which allows you to do this cleanly.
  10. #
  11. alias edit 
  12. {
  13.     ^local edit.name $toupper($0)
  14.     ^local edit.stuff $aliasctl(ALIAS GET $edit.name)
  15.  
  16.     if (edit.stuff)
  17.     {
  18.         type ^U
  19.         xtype -literal /alias $^\edit.name $^\edit.stuff
  20.     }
  21.     {
  22.         xecho -w 0 *** Unknown alias: $edit.name
  23.     }
  24. }
  25.